# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2020/9/28 0028

pacman::p_load(reshape2, dplyr, magrittr)
data <- matrix(runif(100), ncol = 10) %>%
  set_colnames(letters[1:10] %>% paste0("1")) %>%
  set_rownames(letters[1:10] %>% paste0("2"))

data %<>% melt()
names(data)
data %<>% dcast(Var2~Var1)